home *** CD-ROM | disk | FTP | other *** search
/ CD Loisirs 24 / CDL24.iso / LAPLACE / IDEM.DXR / Album_6_Select Album.ls < prev    next >
Encoding:
Text File  |  1996-10-10  |  528 b   |  29 lines
  1. on exitFrame
  2.   global gExHot
  3.   set Y to 0
  4.   repeat with x = 2 to 13
  5.     if rollOver(x) then
  6.       set Y to x
  7.     end if
  8.     set the visible of sprite x to 0
  9.   end repeat
  10.   case Y of
  11.     0:
  12.       nothing()
  13.     otherwise:
  14.       set the visible of sprite Y to 1
  15.   end case
  16.   if Y <> gExHot then
  17.     set gExHot to Y
  18.     case gExHot of
  19.       0:
  20.         nothing()
  21.       otherwise:
  22.         if ((Y - 1) = 1) or ((Y - 1) = 2) then
  23.           puppetSound("SONG_0" & Y - 1 & ".AIF")
  24.         end if
  25.     end case
  26.   end if
  27.   go(the frame)
  28. end
  29.